adjustr_ Function

private elemental function adjustr_(string) result(adjustr_string)

Adjust the varying string to the right

Arguments

Type	Intent	Optional	Attributes		Name
type(varying_string),	intent(in)			::	string

Return Value type(varying_string)

Source Code

  elemental function adjustr_ (string) result (adjustr_string)

    type(varying_string), intent(in) :: string
    type(varying_string)             :: adjustr_string


    adjustr_string = ADJUSTR(CHAR(string))

! Finish

    return

  end function adjustr_